home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Inside Action / Total Distortion Big Demo / beTDVS.Dxr / 00018.ls < prev    next >
Encoding:
Text File  |  1995-06-05  |  961 b   |  65 lines
  1. on JumpPage n
  2.   global NowBPage
  3.   puppetSound("JSpcBtn13.AIF")
  4.   set NowBPage to n
  5.   go(string(n))
  6. end
  7.  
  8. on goNowPage
  9.   global NowBPage
  10.   puppetSound("LoYeah01.AIF")
  11.   go(string(NowBPage))
  12. end
  13.  
  14. on PutAway
  15.   puppetSound(0)
  16.   go("exit")
  17. end
  18.  
  19. on BookHelp
  20.   puppetSound("Dogonnit.AIF")
  21.   go("help")
  22. end
  23.  
  24. on initbook n
  25.   global NowBPage, BPageMax
  26.   set NowBPage to 1
  27.   set BPageMax to n
  28. end
  29.  
  30. on PageUp
  31.   global NowBPage, BPageMax
  32.   if NowBPage = BPageMax then
  33.     exit
  34.   else
  35.     set NowBPage to NowBPage + 1
  36.   end if
  37.   puppetSound("BookPage.1")
  38.   go(string(NowBPage))
  39. end
  40.  
  41. on LastPage
  42.   global NowBPage, BPageMax
  43.   puppetSound("Kick.1")
  44.   go(string(BPageMax))
  45.   set NowBPage to BPageMax
  46. end
  47.  
  48. on FirstPage
  49.   global NowBPage, BPageMax
  50.   puppetSound("Kick.1")
  51.   go("1")
  52.   set NowBPage to 1
  53. end
  54.  
  55. on PageDN
  56.   global NowBPage, BPageMax
  57.   if NowBPage = 1 then
  58.     exit
  59.   else
  60.     set NowBPage to NowBPage - 1
  61.   end if
  62.   puppetSound("BookPage.2")
  63.   go(string(NowBPage))
  64. end
  65.